﻿Imports FireAndIceSoft.dbFireAndIceDataSetTableAdapters
Imports System.Collections
Imports System.Resources
Public Class CargarArchivoSeguridad
    Private Sub CargarArchivoSeguridad_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        todos.Items.Clear()
        nuevos.Items.Clear()
        FileName.Text = ""
    End Sub

    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click
        OFSeguridadSGS.FileName = "SeguridadSGS"
        OFSeguridadSGS.ShowDialog()
        FileName.Text = OFSeguridadSGS.FileName
        todos.Items.Clear()
        nuevos.Items.Clear()
        If My.Computer.FileSystem.FileExists(FileName.Text) Then
            Using rsxr = New ResXResourceReader(FileName.Text)
                Dim d As DictionaryEntry
                Dim contador As Integer
                Using adaptadorPermisos As New seg_clasesTableAdapter()
                    For Each d In rsxr
                        Dim vValue As String = d.Value
                        todos.Items.Add(vValue)
                        contador = 0
                        For Each item In adaptadorPermisos.GetData
                            If item.idclase.Trim = vValue.Trim Then
                                contador = contador + 1
                            End If
                        Next
                        If contador = 0 Then
                            nuevos.Items.Add(vValue)
                        End If
                    Next
                End Using
            End Using
        End If
    End Sub

    Private Sub SimpleButton2_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton2.Click
        If nuevos.Items.Count = 0 Then
            MsgBox("No hay nuevos permisos para registrar en el Sistema", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error al registrar permisos")
        Else
            Using adaptadorPermisos As New seg_clasesTableAdapter()
                For Each item In nuevos.Items
                    adaptadorPermisos.InsertQuery(item, item, "Permiso para gestionar " + item)
                Next
            End Using
            MsgBox("Se registraron los nuevos permisos en el Sistema", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Registro de permisos")
            SeguridadSGS.DarTodosLosPermisosAlAdministrador()
            nuevos.Items.Clear()
        End If
    End Sub
End Class